home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00106_Script_106 < prev    next >
Text File  |  1997-09-29  |  407b  |  13 lines
  1. on exitFrame
  2.   put the number of chars in field "qus" into Wnum
  3.   repeat with i=1 to Wnum
  4.     wait 10
  5.     puppetSound 3,"ﾇｻﾇﾆﾇﾈ"
  6.     set the foreColor of char i of line 1 of field "ans" to 146
  7.     put char i of line 1 of field "qus" into char i of line 1 of field "ans"
  8.   end repeat
  9.   
  10.   put (the number of chars in field "ans") into lastNum
  11.   delete char Wnum+1 to lastNum of field "ans"
  12.   
  13. end